My meme uses a cartoon image of the Grinch I found online.
The
comedy is a little niche and is meant to be absurd in nature and works
similarly as an anti-joke. This type of comedy generally becomes amusing
once one has seen too many memes almost being over-saturated. The
mundanity and minor shock value becomes comedy when in contrast to other
memes. It is perhaps enjoyed ironically.
library(magick)
funny <- image_read("grinchsmile.jpg")
funnyScaled <- funny %>%
image_scale(200)
# Scale the funny image for ease of viewing.
# Adds funny text
# Saves the funny image
funnyAnnotated <- funnyScaled %>%
image_annotate("Me when I commit a petty crime")
funnyAnnotated %>%
image_write("my_meme.png")
funnyAnnotated
My animated GIF is of a person slicing “HOW IT FEELS AT 2AM”.
library(magick)
# Read all the image names
image_files <- list.files("Spear", pattern = "*.png", full.names = TRUE)
# Put all the read images in a vector for animation
images <- image_read(image_files)
# Animate the images
animation <- image_animate(images, delay = 15)
# Write the animation as a .gif
image_write(animation, "animation.gif")